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MODULE RM3FNDRFA SL AMSUAGE {Oy 13$5e) ’ 
IDENT *v04=000' 


BEGIN 


LRA RAR EEE A EEE REAA EER EREEE EE ETEETET EE EERAEE EE REEEEEERE EERE EEE 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


i THIS SOFTWARE 4, FURNISHED UNDER A LICENSE AND MAY BE USED AND ag 
He re IN ACCORDANCE WITH THE TERMS OF SUCH ha AND WITH THE 


!® TRANSFERRED. 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘em eORPORAT itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


* 
® 
* 
* 
® 
® 
*® 
® 
* 
* 
:* QTHEK PERSON. NO TITLE 79 AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 
® 
7 
® 
* 
*® 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 

® 

* 
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i 

FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

i ABSTRACT: Nik ee 

} Search given bucket for record with given ID 

i 

i ENVIRONMENT : 

; VAX/VMS OPERATING SYSTEM 

= 

; 

AUTHOR: Christian Saether CREATION DATE: 24-APR-78 14:46 
i MODIFIED BY: 

i v03-004 MCN0008 Maria del C. Nasr 22-Mar-1983 
: More Linkages reorganization 

: v03-003 MCNOO007~ _ Maria del C. Nasr 24-Feb-1983 
Reorganize Linkages 

v03-002 KBT0166 Keith B. Thompson 23-Aug-1982 
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RM3FNDRFA 16-Sep-1984 01:44:07 AX-11 Bliss-32 V4.0-742 Page 2 RM" 
iV -000 13238071382 13:01:22 RMS .SRCIRMSFNDRFA.B32;1 (1) v0é 
; 38 0058 v03-001 TMKOO01 Todd M. fate 19-Jun-1982 ; ; 
Ps oe FR Implement cluster RMS solution for next record pee teres we. : 
; 690 060 This means that it no longer makes sense to call the routines : 
3 61 0061 in this module to position to a SIDR record because the IDs : 
; 6 66 pes in SIDR records are no longer used for positioning purposes. : 
ee 006 Therefore, these routines will contain an implicit assumption ‘ 
| ee Boe that the record being located lies in a primary data bucket. : 
; 66 0066 v02-010 KPLO002 Peter Lieberwirth — 10-Jan-1982 | ; 
; «667 0067 If file is PLG 3, and find_by_id fails, return DEL if ; 
68 0068 id is less than BKT next record id (instead of RNF). ; 
69 0069 This is because we're completely deleting RRVs in PLG : 
4 Baee files. (This should have been done some time ago.) : 
? 007 v02=-009 KPLO001 Peter Lieberwirth 23-Nov-1981 : 
7 007 If RFA points to an index bucket for a PLG 3 file, return : 
rh 0074 DEL and not RFA because more dang Pokey is record deleted ; 
75 0075 and bucket then reclaimed. (less likely error is RFA trashed : 
76 0076 by user) : 
77 0077 ; 
78 0078 v02-008 Psk0002 Paulina S. Knibbe y Hy og | : 
79 0079 Change last ‘record not compressed’ info to keep track : 
69 paee of the address instead of the ID. | : 
82 0082 v02-007 PSK0001 Paulina S. Knibbe 15_Apr-1981 : 
a? Beez Make some changes to fix prologue one and two searches : 
85 0085 Vv02-006 MCNO006 Maria del C. Nasr 16-Mar-1981 : 
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Increase size of record identifier to a word. 
87 0087 Modify RMS$FIND_BY_ID to handle new data level structure 
88 0088 (base level 1). 
89 0089 ; 
ey Bet VO2-005 REFORMAT K. E. Kinnear 23-Jul-1980 10:03 
92 0092 REVISION HISTORY: 
93 0093 
94 0094 v01-004 C. D. Saether 16-Jan-1979 10:11 ) 
95 0095 FIND BY_ ID no longer requires CURBDB as input (calls | 
38 Bo78 REC_OVHD instead of GETNEXTREC). 
98 0098 v01-003 C. D. Saether : 9-Jan-1979 11:59 
190 st44 NORLS_RNF must be cleard always (fix bug where it wasn't). 
101 0101 v01-002 We Koenig ; _ 24-Oct-1978 14:01 
102 0102 Make chances caused by sharing conventions. 
103 0103 
104 0104 ertes 
105 0105 
106 0106 LIBRARY ‘'RMSLIB:RMS'; 
107 0107 
108 0108 REQUIRE "RMSSRC:RMSIDXDEF'; 
109 0173 
110 0174 !' Define default psects for code 
111 0175 : 
16 0176 PSECT 
11 0177 CODE = RMSRMS3(PSECT_ATTR), 
114 0178 PLIT = RMSRMS3(PSECT_ATTR); 
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/ v04-000 RMSF IND_BY_ID 14-Sep-1984 93501 :55 RMS. SREIR FNDRFA.B32;1 
EOB; ' Local for end of bucket address 
MAP 
AP : WORD; 


SSSSSsssssese 
VMIEWUN —OOONOUSE 


MroTonoronononon = | a eS 


DWNOA UE WR OOD NOUE WN OVO BNOU SW —OOW NOnRuwnws=oSw ue 
=O DOONAN EAN 9 OD NO UE WN $0 OODNAUE WN 0 OONOAU EWN OOOWVOUEW OOONOu 
PEIN AAR I NIPPON PIPINIPONI PPI HAI IDI PIII AAP POPPIN PUPGPYINUPIPINPIPYINIPUNINININPYUNPYNON 


POPIPININONINPUPDPYADNDPGAINININONININPINYNUNOPOPPININONININININPNIPUNIPU PUPPY 
BERLE EEE EWAN NINN NNNINIDN 2 2 2 2 OO OS SH OOO 


——GVOOCOOOOSCoOvd 


SS 
Be Ge Se Se Be Oe Se Se Be Be Se Be Be Se Be Be Ge Ss Se Fe Se Se Be Fe Ge Se Se Se Ge Se Se Se Ge Ge Se Fe Se Se Se Se Se St Se Fs Oe Se SHS Se SH Se SH Se SE Se esas 


| 
| 


Calculate beginning and end of search addresses 


REC_ADDR = .BKT_ADDR + BKT$C_OVERHDSZ; 
EOB™= .BKT_ADDR™+ .BKT_ADDRCBKT$W_FREESPACE); 


! Keep track of last . with no front compression in order to 
optimize rebuilding the primary key when we find the right record 


[RABCIRBSL_LST_NCMP] = .REC_ADDR; 

} If not a prologue 3 file, process as before 

IF .IFABCIFB$B_PLG_VER] LSSU PLGS$C_VER_3 

THEN 
Step thru the bucket until the record id is matcned 
—e -REC_ADDR LSSA .EOB 


IF .REC_ADDRCIRCS$B_ID] EQL .AP 


THEN 
This is it! We found the record. Return success. 


RETURN RMSSUC(SUC) 


ELSE 3 : 
Haven't found it yet, keep looking. 


BEGIN 
REC_ADDR = .REC_ADDR + RMSREC_OVHD(0; REC_SIZE); 
oe 


-RECTADDR + .REC_SIZE; 


ELSE 
Prologue version 3 file, loop until record found 


ee »REC_ADDR LSSA .EOB 


IF .REC_ADDRCIRC$W_1D] EQL .AP 
RETURN RMSSUC (SUC) ! We foung the record 


ELSE 
BEGIN 


LOCAL 
REC_OVHD; 
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v0e=000 RMSF IND _BY_1D ene e= habe PSibTioe | Hats Se eddaSrapet Ac o3503 sea vol 
. 49 8 1 3 
: 3} \7 REC_OVHD = RMSREC_OVHD(0; REC_SIZE); : 
: ¢ 6 15 ! If compressed primary key, save address of record with a zero : 
: e 8 1 compression count : 
E 55 0318 iF .1DX_DFNCIDX$V_KEY_COMPR] : 
; 28 8 i? AND «(JREC_LADDR * .REC_OVHD + 1)<0,8> EQL 0 ; 
; 238 : 1 IRABLIRBSL_LST_WCMP] = .REC_ADDR; 3 
; 260 05 é REC_ADDR = .REC_ADDR + .REC_OVHD + .REC_SIZE; ; 
: $ ° ¢ END; : 
; see $356 : 
: see B35 § Can't find this ID at all. Return record not found code. : 
: 266 0529 2 if .IFABLIFB$B_PLG_VER] LSSU PLGSC_VER_3 ; 
s 27 0330 2 THEN 3 
: 268 0331 2 ; 
; 269 O88 2 ! Prolog 1 or 2 file, return RNF. 3 
s; 270 033 ¢ ! 3 
s ey 0334 RETURN RMSERR(RNF ) ; 
3 $f 0335 2 ELSE 3 
3 7 0336 2 3 
3 sie Bee § Prolog 3 file, return DEL if RRV has been deleted : 
; 276 0339 2 if .AP GEQU .BKT_ADDRE BKTSW_NXTRECID J ; 
gs alr ky 2 THEN 3 
s ee 0341 2 | $ 
; ey Oe 2 ! id being searched for is not less than next record id, 3 
3 set Oee7 2 so it can't correspond to a deleted RRV, this return RNF : 
: 28¢ 0345 : RETURN RMSERR(RNF) | ; 
: 28 0346 2 ELSE F 
; «6284 0347 2 3 
3 AH tres § RRV has been deleted, therefore the record must have been deleted ; 
: 287 0350 2 RETURN RMSERR(DEL); : 
; 288 0351 2 F 
; 289 0352 #1 END; : 
.TITLE RM3FNDRFA : 
SIDENT —\V04-000\ 
.EXTRN RMSGETBKT, RMSREC_OVHD : 
-EXTRN RMSRLSBKT : 
.PSECT RMSRMS3,NOWRT, GBL, PIC,2 ; 
OC BB 00000 RMSFIND BY_ID:: | : 
| “PUSHR #*M<R2,R3> ; 0199 | 3 
56 OE AS 9€E 00002 MOVAB 14(R5), REC_ADDR ; 0262. é 
52 04 AS 3C 00006 MOVZWL 4(BKT_ADDR), EOB ; 0263. é 
| $5 55 0 OOOOA ADDL2 BKT_ADDR, OB | : 
0098 C9 56 DO 0000D MOVL REC_ADDR, 152(1RAB) ; 0268 | ; 
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; Routine Size: 
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RMSFNDRFA 
/v04-000 RMSFIND_BY_RFA 
i; 29 0 ZSBTTL 'RMSFIND_BY_RFA' 
37 8 GLOBAL ROUTINE RMSFIND_BY_RFA (VBN) 
95 0 'e4 
96 0 ! 
97 0 ' FUNCTIONAL DESCRIPTION: 
98 8 
0 ' and return address of record foun 


CALLING SEQUENCE: 
RMSFIND_BY_RFA (VBN) 
INPUT PARAMETERS: 


WAWINAANANNNANAANI 


NAAAAAAAAAOOUIMIUINGTN 


IMPLICIT INPUTS: 


IRAB = address of internal 


IRAB 


OUTPUT PARAMETERS: 
NONE 


OOON NNN 
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VBN = VBN of bucket to search 


: RLSRABREG_67 = 


! Get primary data bucket, search i record with matching ID, 


res DFN = address of index descriptor 


IRAB f NORLS_RNF J = do release bucket on RNF error 
CACHEFLAGS ] - passed through to GETBKT 
AP - ID of record to search for 


309 
308 
; 9 
0 
311 
312 
313 
314 
315 
316 
; 7 
8 
319 
2 
3 2 4 IMPLICIT OUTPUTS: 
325 385 : 
324 386 REC ADDR = address of record with ID match | 
325 387 IRABCIRB$L_CURBDBJ = BDB of bucket searched if success 
326 388 = 0 if any error 
327 389 IRABC NORLS_RNF J = 0 always 
328 390 
329 391 ROUTINE VALUE: 
330 $05 : 
331 39 SUC = if search successful 
332 394 RNF - if no match 
; 3 395 RFA = bad level (neq 0) 
: 43 error codes passed back if GETBKT error 
: 6 398 SIDE EFFECTS: 
337 399 . : 
; 8 400 Bucket searched is accessed if success, 
9 401 released on any error unless NORLS_RNF is set, 
0 £86 then do not release on RNF error 
1 040 
¢ 0404 <6 
; 0405 
4 0406 BEGIN 
5 0407 
6 0408 LOCAL 
7 0409 3 
8 0410 
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 V04=000 RMS$F IND_BY_RFA 14-Sep-1984 13:01:22 CRMS.SRCIRM3FNDRFA.B32; (3) 

ls 49 0411 BUILTIN 3 

[3 50 ti¢ AP; F 
3 1 4) : 
: ¢ 414 EXTERNAL REGISTER : 

be aE R-TDNCDEN STR. 
; 355 0019 COMMON_RAG_STR; ; 
; oe 0418 
s Sor 0419 GLOBAL REGISTER : 
; 358 0420 COMMON_I0_STR; ; 
; 359 0421 : 
: 360 4 ¢ LABEL : 
; 66 424 : 
; rt Be 2 2 REC_ADDR = .AP; ! save AP across 10 : 
3 6365 0427 $ ' Get access to bucket, save status, and check for success. . 
: 367 oc59 5 
; 68 0430 § IF NOT (S. = RMSGETBKT(.VBN, .I1DX_DFNCIDX$B_DATBKTSZJ*512)) ; 
; 393 0431 ¢ THEN : 
; 70 oh 1) BEGIN | 3 
; 371 043 yf pee reg org = 0; : 
; 37¢ 0434 IRABCIRBSV-NORLS_RNFJ = 0; | F 
3; 37 0435 RETURN .ST; 3 
: ae 0436 3 
; 375 0437 2 END; : 
: 376 0438 2 : 
3 Has rt44 § IRABCIRB$L_CURBDB] = .BDB; ! set up CURBDB : 
; 379 0441 § ' Got the bucket. Now make sure we're at level 0. : 
: 380 044 ! 3 
3 gel 0443 2 AP = .REC_ADDR; ! restore AP 3 
; 386 0444 2 ; 
2 83 0445 BLOCK : : 
; 384 0446 BEGIN $ 
; 385 0447 3 
: 386 0448 3 IF .BKT_ADDRCBKTSB_LEVEL) NEQ 0 3 
5 44 0449 3 THEN 3 
; 388 0450 3 
. 389 0451 IF .IFABC IFB$B_PLG_VER J] LSSU PLG$C_VER_3 | 3 
; 390 3636 THEN 3 
: 391 0453 4 BEGIN : 3 
: 4 Bee 4 ! PLG 2 file, return RFA error 3 
; 39 455 4 ! ; 
. 94 0456 4 ST = RMSERR(RFA); ° 
; 395 0457 4 LEAVE BLOCK; : 
; 39 Beee 4 END 3 
; 39 459 3 ELSE : 
: $e 0460 4 i : ; ; 
; 399 0461 4 ! PLG 3 file, more likely error is record deleted and then bucket : 
; 400 Bees 4 ' reclaime 3 
: 401 0465 4 } 3 
; 460 0464 4 ST = RMSERR(DEL); : 
; 40 Regs 4 LEAVE BLOCK; : 
: 604 466 ; END; : 
; 4605 0467 

| 

\ 


1 
RMSFNDRFA Jo~se0~ 198% 94:46:07 AX-11 Es =32 v4.0-742 
v04-000 RMSF IND_BY_RFA 14-Sep-1984 13:01:22 RMS. SRE M3FNDRFA.B32; 1 
ls $06 46 ' Bucket level OK. Now search for ID. 
is 60 4 ! 
i: 408 470 
3: 609 471 4&4 IF (ST = RMSFIND_BY_ID()) 
1; 6410 0472 3 HEN 
1: 411 047 4 CIRABCIRBSY. -NORLS_RNFJ = 0; 
: le 474 RETURN .ST) 
s 6) 0475 
> 614 0476 IF_.IRABCIRBSV_NORLS_RNF J 
: 415 0477 THEN 
: 616 0478 4 CIRABCIROSY -NORLS_RNFJ = 0; 
; 417 0479 RETU ST) 
>; 418 0480 
: 619 0481 END; ! end of block BLOCK 
: 420 rt 
s 621 048 ' Common error code - zero current BDB and return error code. 
; os§ 0484 § ' Clear NORLS_RNF flag always. 
: 62 0485 i 
3 426 0486 2 RMSR SBKT(O) 
: 4625 0487 2 IRABLIRBSL_CURBDB) = 0; 
3: 426 0488 é 1RABL Veet “NORLS. RNFJ = 0; 
: 627 0489 RETU 
; 428 0490 2 
; 429 0491 1 END; 
30 BB 00900 RMSFIND_BY_RFA:: 
PUSHR #*M<R4, RS> 
56 5C dO 00002 MOVL AP, REC A 
50 17 A? 9A 00005 MOVZBL 23(IDX_ BPN) 
7E 50 09 78 00009 ASHL #9, RO, -(SP) 
AE DD 0000D PUSHL VBN 
0000G 30 00010 SBW RMSGETBKT 
5E 08 CO 00013 ADDL2 #8, SP 
51 50 DO 00016 MOVL RO, ST 
37 51 €9 00019 BLBC ST, 4$ 
20 «Ad 54 DO 0001C MOVL BDB, 32(IRAB) 
5C 56 DO 00020 MOVL REC_ADDR, AP 
oc «AS 1 00023 TSTB 12(BKT_ADDR) 
15 13 00020 BEQL 2$ 
03 0087 CA 91 it 8 CMPB 183(1FAB), #3 
07 1€ 0002D BGEQU 1$ 
51 865C 8F 3C B08 F MOVZWL #34396, ST 
15 11 000 BRB 
51 8262 BF 3° 00036 1$: MOVZWL #33378, ST 
ge 11 00038 BRB 
| FF3C 30 90 D 28: BSBW RMSF IND_BY_ID 
51 50 4 bee MOVL + E ST 
| 10 51 £8 0004 BLBS 5$ 
42 AY 99 EO 00046 BBS te 66(IRAB), 5$ 
F bs 0048 3$ CLRL ($F 
00006 30 4D BSBW RNORL SBKT 
5E 04 C0 Bees ADDL2 SP 
20 AD D4 00053 4S: CLRI. $3 RAB) 


Size: 228 code + 0 data bytes 
Run Time: 00:07. 
Elapsed Time: 00:21.7 
Lines/CPU Min: 4165 
ponsnse/<PU-Wies 14945 

oY Used: 72 pages 
— ation Complete 


B 2 
RMZFNDRFA 16-Sep-1984 01:44:07 AX-11 Bliss-32 V4.0-742 Page 11 RM? 
/v04=000 RMSF IND_BY_RFA ene ep-19ke ASibtio5 — ERMS SROTAMEFHORY A O30 74 wate * “vod 
42 ad 0 8A 00056 5$ BICB2 #32, 66(IRAB) : 0488 : 
50 i 50 OO05A MOVL : : 0489 it 
0 BA 0005p POPR #*M<R4,R5> + 0491 
05 0005F RSB : 

3 Routine Size: 96 bytes, Routine Base: RMSRMS3 + 0084 

: 430 0492 1 

; 431 0493 1 END 

> 432 0494 1 

: 433 0495 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: RMSRMS3 228 NOVEC.NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

eee alg greene Tari aa Aa ei ee Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 46 1 154 00:00.3 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:RM3FNDRFA/OBJ=OBJ$:RM3FNDRFA MSRC$:RM3FNDRFA/UPDATE=(ENHS: RM3FNDRF A) 
| 


© 
ar 
> 
wn 
= 
—- 
™~ 
~< 
Cc 
> 


395 AHO BT13A- SE 


